Monster Media 1996 #14/Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO/prog_d/psicrypt.zip/PSICRYPT.DFM/PSICRYPT.txt

Text File | 1996-01-15 | 6KB | 263 lines

object PsiRegDlg: TPsiRegDlg
  Left = 552
  Top = 272
  BorderStyle = bsDialog
  Caption = 'Registration'
  ClientHeight = 274
  ClientWidth = 321
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  PixelsPerInch = 96
  Position = poScreenCenter
  TextHeight = 13
  object Logo: TImage
    Left = 20
    Top = 15
    Width = 35
    Height = 33
    AutoSize = True
    Center = True
    Picture.Data = {<image000.bmp>}
    Stretch = True
  end
  object Label3: TLabel
    Left = 116
    Top = 26
    Width = 113
    Height = 14
    Alignment = taCenter
    Caption = 'Copyright � 1995-1996'
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 92
    Top = 10
    Width = 165
    Height = 14
    Alignment = taCenter
    Caption = 'Psi Computer Consultants Pty. Ltd.'
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
  end
  object Label10: TLabel
    Left = 96
    Top = 42
    Width = 153
    Height = 15
    Alignment = taCenter
    Caption = 'Compuserve 100232,2111'
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Notebook1: TNotebook
    Left = 0
    Top = 65
    Width = 321
    Height = 209
    Align = alBottom
    TabOrder = 0
    object TPage
      Left = 0
      Top = 0
      Caption = 'DoRegister'
      object Bevel1: TBevel
        Left = 8
        Top = 40
        Width = 305
        Height = 105
        Shape = bsFrame
        IsControl = True
      end
      object Label1: TLabel
        Left = 16
        Top = 80
        Width = 63
        Height = 13
        Caption = 'User Name'
      end
      object Label2: TLabel
        Left = 16
        Top = 112
        Width = 69
        Height = 13
        Caption = 'Registration'
      end
      object SoftwareName: TLabel
        Left = 16
        Top = 48
        Width = 289
        Height = 20
        Alignment = taCenter
        Caption = 'SoftwareName'
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label9: TLabel
        Left = 8
        Top = 8
        Width = 305
        Height = 24
        Alignment = taCenter
        Caption = 'Register'
        Font.Color = clBlack
        Font.Height = -21
        Font.Name = 'Times New Roman'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object DRegKey: TEdit
        Left = 104
        Top = 112
        Width = 201
        Height = 20
        TabOrder = 1
      end
      object DUserName: TEdit
        Left = 104
        Top = 80
        Width = 201
        Height = 20
        TabOrder = 0
      end
      object OKBtn: TBitBtn
        Left = 128
        Top = 158
        Width = 77
        Height = 27
        TabOrder = 2
        OnClick = OKBtnClick
        Kind = bkOK
        Margin = 2
        Spacing = -1
        IsControl = True
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'GetKey'
      object Bevel2: TBevel
        Left = 8
        Top = 40
        Width = 305
        Height = 105
        Shape = bsFrame
        IsControl = True
      end
      object Label5: TLabel
        Left = 16
        Top = 80
        Width = 63
        Height = 13
        Caption = 'User Name'
      end
      object Label6: TLabel
        Left = 16
        Top = 112
        Width = 69
        Height = 13
        Caption = 'Registration'
      end
      object Label7: TLabel
        Left = 16
        Top = 48
        Width = 45
        Height = 13
        Caption = 'Product'
      end
      object Label8: TLabel
        Left = 8
        Top = 8
        Width = 305
        Height = 24
        Alignment = taCenter
        Caption = 'Get Registration Key'
        Font.Color = clBlack
        Font.Height = -21
        Font.Name = 'Times New Roman'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object PUserName: TEdit
        Left = 104
        Top = 80
        Width = 201
        Height = 20
        TabOrder = 1
      end
      object BitBtn1: TBitBtn
        Left = 168
        Top = 152
        Width = 77
        Height = 27
        TabOrder = 3
        OnClick = BitBtn1Click
        Kind = bkOK
        Margin = 2
        Spacing = -1
        IsControl = True
      end
      object PProduct: TEdit
        Left = 104
        Top = 48
        Width = 201
        Height = 20
        TabOrder = 0
      end
      object PRegKey: TPanel
        Left = 104
        Top = 112
        Width = 201
        Height = 25
        TabOrder = 2
      end
      object BitBtn2: TBitBtn
        Left = 64
        Top = 152
        Width = 77
        Height = 27
        Caption = 'Get Key'
        TabOrder = 4
        OnClick = BitBtn2Click
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
          5000555555555555577755555555555550B0555555555555F7F7555555555550
          00B05555555555577757555555555550B3B05555555555F7F557555555555000
          3B0555555555577755755555555500B3B0555555555577555755555555550B3B
          055555FFFF5F7F5575555700050003B05555577775777557555570BBB00B3B05
          555577555775557555550BBBBBB3B05555557F555555575555550BBBBBBB0555
          55557F55FF557F5555550BB003BB075555557F577F5575F5555577B003BBB055
          555575F7755557F5555550BB33BBB0555555575F555557F555555507BBBB0755
          55555575FFFF77555555555700007555555555577777755555550000}
        NumGlyphs = 2
      end
      object ErrorRep: TPanel
        Left = 0
        Top = 184
        Width = 321
        Height = 25
        Align = alBottom
        TabOrder = 5
      end
    end
  end
end